home *** CD-ROM | disk | FTP | other *** search
- (Defun C:Ellipse ()
- (Setvar "Cmdecho" 0)
- (Setq A (Getint "\nNumber of sides: "))
- (Setq P1 (Getpoint "\nCenter point: "))
- (Setq B (Getdist P1 "\nMajor radius: "))
- (Setq C (Getdist P1 "\nMinor radius: "))
- (Setq A1 (Getangle P1 "\nRotation angle: "))
- (Setq D (* (/ 360.0 A) (? Pi 180.0)))
- (Setq X1 (Car P1))
- (Setq Y1 (Cadr P1))
- (Setq A2 0.0)
- (Command "Pline")
- (Repeat A
- (Setq X2 (+ X1 (* B (Cos A2))))
- (Setq Y2 (+ Y1 (* C (Sin A2))))
- (Setq E (Distance P1 (List X2 Y2)))
- (Setq A3 (Angle P1 (List X2 Y2)))
- (Setq P2 (Polar P1 (+ A3 A1) E))
- (Command P2)
- (Setq A2 (+ A2 D))
- )
- (Command "C")
- )